Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  683 1553 (N16E34 L=106)   767    186        5 ( 606/1508- 728/1610)  66.8 E38-E31 N13-N20
      2  742 1488 (N14E28 L=112)   345     91        1 ( 695/1453- 774/1525)  71.6 E29-E26 N10-N16
      3  480 1384 (N03E42 L= 98)   901    199        1 ( 443/1307- 525/1465) -48.8 E45-E36 S01-N07
      4  253 1259 (S08E58 L= 82)  1344    245        0 ( 201/1159- 282/1329) -42.0 E66-E53 S13-S04
      5  755 1295 (N02E22 L=118)   212     98        0 ( 704/1272- 808/1311)  31.0 E24-E18 N00-N04
      6  480 1151 (S11E36 L=104)   265    113        1 ( 448/1105- 526/1192)  63.4 E37-E33 S13-S07
      7 1607 1093 (N11W33 L=173)   354     77        3 (1581/1057-1636/1134) -36.9 W31-W35 N09-N12
      8  627 1058 (S14E24 L=116)   794    277        2 ( 559/1004- 688/1109)  49.4 E29-E20 S17-S10
      9 1836 1037 (N15W53 L=193)   403     84        0 (1805/1017-1863/1056)   9.5 W50-W56 N13-N16
     10  287 1026 (S21E49 L= 91)   379    130        0 ( 247/ 999- 333/1046)  23.2 E52-E44 S23-S20
     11 1039  711 (S24W09 L=148)  1517    442        4 ( 855/ 617-1225/ 821)  51.3 W00-W16 S33-S13
     12 1731  623 (S10W58 L=198)   778    201        3 (1654/ 566-1799/ 677)  45.0 W52-W64 S15-S06
     13 1700  529 (S16W60 L=200)   767    150        3 (1655/ 500-1739/ 569)  39.8 W57-W63 S18-S13
     14 1755  495 (S16W69 L=209)   993    176        4 (1714/ 442-1802/ 536)  58.0 W66-W72 S19-S11
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y