Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  364 1616 (N32E70 L=208)  1170     99        1 ( 342/1563- 387/1663) -28.3 E81-E65 N28-N35
      2  341 1480 (N23E60 L=218)   421     68        0 ( 314/1461- 377/1502)   0.0 E65-E55 N21-N24
      3  525 1434 (N22E40 L=238)   372     55        0 ( 502/1400- 545/1465)  90.0 E41-E38 N19-N24
      4  864 1243 (N14E12 L=266)   204     99        0 ( 823/1225- 913/1255)   9.5 E14-E08 N12-N14
      5 1518  996 (N04W32 L=310)   960    228        0 (1435/ 941-1577/1080)  52.1 W26-W36 N00-N09
      6 1004  995 (S00E01 L=277)   469     97        3 ( 961/ 970-1048/1039)  14.0 E03-W01 S01-N02
      7  157  867 (S17E70 L=208)  1958    166        4 ( 137/ 778- 185/ 934)  70.0 E75-E64 S23-S12
      8 1029  849 (S09W02 L=280)   399    138        1 ( 988/ 809-1085/ 872)  31.0 W00-W05 S11-S07
      9  875  831 (S12E08 L=271)   304     60        1 ( 842/ 809- 912/ 848)   0.0 E09-E05 S12-S10
     10 1135  801 (S11W09 L=287)   213     65        1 (1103/ 774-1162/ 827) -26.6 W06-W10 S12-S09
     11  430  782 (S19E39 L=239)   331     66        1 ( 407/ 759- 449/ 817) -71.6 E41-E37 S20-S17
     12  769  761 (S17E14 L=265)   233     49        0 ( 737/ 745- 792/ 780)  26.6 E16-E12 S18-S15
     13 1683  710 (S12W50 L=329)   946    160        0 (1654/ 640-1725/ 779)  77.5 W48-W52 S16-S07
     14 1056  723 (S17W05 L=283)   519    161        0 ( 980/ 701-1120/ 761)  -6.3 W00-W09 S18-S15
     15  300  714 (S25E53 L=225)   681    117        0 ( 252/ 694- 359/ 759)  19.7 E59-E45 S27-S21
     16 1456  666 (S17W33 L=311)   618    196        0 (1403/ 634-1516/ 719)  39.8 W28-W36 S19-S13
     17 1706  626 (S18W56 L=334)   973    123        3 (1671/ 562-1741/ 663)  66.8 W52-W59 S22-S15
     18 1040  598 (S25W05 L=284)   219     64        0 (1016/ 566-1053/ 624) -53.1 W03-W06 S27-S23
     19  898  509 (S33E04 L=275)   237     69        0 ( 860/ 496- 927/ 522)  21.8 E06-E01 S33-S31
  

    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