Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1287 1774 (N56W31 L=127)   964    175        2 (1193/1752-1363/1794)   0.0 W20-W43 N53-N57
      2  875 1442 (N30E10 L= 86)  1130    281        3 ( 780/1362- 990/1526) -36.9 E17-E01 N24-N36
      3 1617 1457 (N29W47 L=143)  1808    286        4 (1485/1427-1745/1481)   0.0 W34-W63 N27-N30
      4  217 1338 (N22E67 L= 29)  2407    163        8 ( 159/1295- 278/1410)  90.0 E79-E58 N18-N26
      5  378 1052 (N05E43 L= 53)   260    107        0 ( 368/1003- 388/1109) -71.6 E44-E42 N02-N08
      6  213 1045 (N04E60 L= 36)   452     86        0 ( 178/1021- 257/1062)  16.7 E64-E54 N02-N05
      7 1695  863 (S08W46 L=142)   284     40        0 (1680/ 836-1711/ 888) -56.3 W44-W47 S09-S06
      8  544  797 (S10E32 L= 65)   250     82        0 ( 503/ 776- 582/ 813)  18.4 E34-E28 S11-S09
      9  825  706 (S16E13 L= 83)   421    147        0 ( 780/ 655- 865/ 767)  53.1 E16-E10 S19-S11
     10 1473  610 (S23W31 L=127)   259     81        0 (1431/ 596-1506/ 624)   0.0 W27-W33 S24-S22
     11 1287  444 (S35W19 L=115)   276     63        2 (1276/ 404-1303/ 477) -78.7 W17-W20 S38-S32
     12 1191  389 (S39W12 L=108)   740    196        2 (1103/ 345-1264/ 437)   4.4 W05-W18 S42-S35
     13 1275  198 (S59W29 L=125)   554     42        1 (1247/ 182-1301/ 221) -16.7 W24-W34 S61-S55
  

    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