Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1432 1805 (N39W63 L=196)   759    103        1 (1390/1768-1480/1829)   0.0 W54-W73 N37-N40
      2  864 1483 (N33W01 L=134)   717    230        1 ( 771/1457- 986/1504) -21.0 E05-W08 N29-N36
      3 1094 1395 (N23W13 L=146)   258     86        1 (1052/1369-1136/1418)   0.0 W09-W15 N21-N23
      4 1548 1359 (N10W40 L=174)   582    133        1 (1502/1294-1585/1412) -82.9 W38-W41 N05-N13
      5  201 1208 (N31E59 L= 74)  2287    274        4 ( 130/1103- 298/1299) -29.1 E77-E47 N22-N37
      6 1150 1258 (N13W12 L=146)   245    137        0 (1089/1239-1205/1287)  -7.1 W08-W16 N12-N15
      7 1905 1230 (S06W71 L=204)   806     70        1 (1882/1201-1925/1272)  45.0 W66-W74 S08-S03
      8  572 1119 (N18E25 L=108)  1314    376        2 ( 394/1071- 715/1212)   0.0 E38-E14 N15-N20
      9 1920 1058 (S17W68 L=202)   717     51        2 (1903/1030-1943/1093) -76.0 W65-W73 S18-S14
     10 1814  833 (S27W52 L=185)  1923    310        5 (1723/ 711-1882/ 958)  35.2 W42-W61 S32-S20
     11 1547  776 (S23W27 L=160)   902    236        0 (1496/ 685-1588/ 877)  45.0 W22-W31 S28-S17
     12 1253  760 (S17W08 L=141)   223    129        0 (1223/ 714-1297/ 820)  39.8 W05-W11 S19-S14
     13  404  504 (S15E56 L= 77)   921    113        4 ( 373/ 447- 437/ 575)  71.6 E59-E53 S18-S09
     14  870  454 (S27E24 L=109)   393     94        1 ( 848/ 404- 895/ 503)  40.6 E27-E20 S30-S24
  

    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