Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1221 1744 (N52W03 L=161)   596     87        1 (1173/1711-1269/1762)  14.0 E01-W07 N49-N54
      2  609 1722 (N39E50 L=108)   526     86        0 ( 569/1705- 654/1737)  23.2 E52-E45 N36-N40
      3  926 1517 (N29E15 L=143)  2134    444        4 ( 747/1421-1122/1594) -10.1 E28-W00 N25-N32
      4 1718 1544 (N45W57 L=214)   720     73        0 (1678/1529-1758/1560)   4.1 W49-W64 N43-N46
      5 1246 1313 (N21W10 L=167)   287     85        0 (1205/1282-1279/1339) -21.8 W07-W12 N19-N21
      6 1147 1243 (N15W04 L=162)   449    200        0 (1084/1152-1197/1292) -36.9 W00-W08 N10-N17
      7  203 1205 (S00E63 L= 94)  1506    188        3 ( 166/1114- 246/1276)  68.2 E67-E58 S06-N04
      8 1750 1140 (N17W49 L=207)   371     67        0 (1725/1122-1787/1153)  15.9 W46-W53 N15-N18
      9 1177  788 (S12W13 L=170)   691    233        1 (1088/ 743-1281/ 847)  36.0 W07-W18 S15-S06
     10  509  772 (S22E31 L=127)   268     48        1 ( 486/ 750- 536/ 796)  26.6 E32-E28 S24-S20
     11 1265  625 (S21W21 L=179)  2054    535        3 (1042/ 561-1429/ 764)  40.6 W07-W29 S27-S09
     12  464  587 (S36E36 L=122)   300     39        0 ( 446/ 568- 484/ 612)  53.1 E37-E33 S37-S33
     13 1093  269 (S50W23 L=180)   441     47        0 (1063/ 248-1122/ 287)  -9.5 W19-W25 S51-S48
  

    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