Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  529 1741 (N23E62 L= 67)   786     80        2 ( 500/1709- 561/1768) -15.3 E67-E56 N21-N25
      2  851 1628 (N23E29 L= 99)   871    179        3 ( 820/1551- 899/1702) -59.0 E32-E25 N18-N28
      3 1469 1616 (N44W11 L=140)   867    117        2 (1408/1582-1534/1638)  14.0 W05-W17 N41-N46
      4 1303 1525 (N31W02 L=130)   417     64        2 (1274/1495-1335/1552)  18.4 W00-W03 N28-N32
      5 1291 1373 (N21W05 L=134)   246     88        2 (1255/1346-1331/1408)  59.0 W03-W06 N18-N23
      6 1327 1291 (N17W10 L=138)   386    174        0 (1279/1257-1402/1345)  -6.3 W05-W14 N15-N18
      7 1835 1302 (N37W52 L=181)   646     60        1 (1803/1277-1860/1327)   7.1 W47-W56 N34-N38
      8 1465 1287 (N21W18 L=147)   253     77        0 (1430/1265-1492/1318)  59.0 W16-W19 N18-N23
      9 1182 1256 (N10W02 L=131)   202     35        0 (1169/1231-1200/1288) -56.3 W01-W03 N09-N12
     10 1779 1146 (N24W46 L=174)   477    136        0 (1726/1109-1827/1174)  37.9 W40-W50 N20-N27
     11 1669 1026 (N13W38 L=167)   864    210        2 (1593/ 976-1749/1093)  -3.8 W31-W46 N11-N14
     12  221 1023 (S26E58 L= 71)   763    156        0 ( 189/ 957- 247/1085) -45.0 E62-E53 S29-S22
     13 1794 1025 (N17W49 L=178)   486     89        1 (1759/ 999-1820/1059)  45.0 W46-W52 N14-N19
     14  814  786 (S26E05 L=123)  1235    224        8 ( 714/ 727- 909/ 832)  45.0 E10-W00 S31-S20
     15 1836  784 (N06W62 L=191)   534     36        0 (1809/ 764-1859/ 804)  38.7 W59-W65 N04-N08
     16 1426  759 (S09W31 L=159)   252    103        1 (1376/ 746-1473/ 783)  38.7 W27-W32 S10-S06
     17 1689  621 (S07W56 L=184)   710    136        2 (1623/ 576-1747/ 655)  37.9 W51-W61 S11-S04
     18  760  602 (S38E04 L=125)   503     91        1 ( 718/ 576- 807/ 633)   9.5 E06-W00 S39-S36
     19  581  605 (S44E18 L=111)   367     64        2 ( 552/ 580- 616/ 628)  45.0 E20-E14 S45-S41
     20  597  527 (S49E15 L=114)   928    143        1 ( 545/ 493- 665/ 575)   4.8 E19-E07 S51-S45
     21 1504  512 (S19W48 L=176)   841    111        1 (1467/ 477-1550/ 567)  -5.7 W42-W52 S22-S17
     22 1713  446 (S15W73 L=202)  2593    172        5 (1643/ 370-1779/ 499)  71.6 W63-W85 S18-S09
  

    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