Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1257 1817 (N49W52 L=165)   487     94        0 (1213/1788-1302/1838)   0.0 W45-W59 N48-N50
      2 1017 1538 (N38W13 L=126)  1163    357        2 ( 986/1379-1057/1672)  53.6 W07-W21 N27-N46
      3 1237 1627 (N38W33 L=146)   327     49        0 (1204/1610-1270/1643)   0.0 W29-W35 N36-N38
      4 1464 1607 (N30W48 L=161)   631    131        3 (1403/1576-1529/1634)  -8.7 W41-W54 N28-N31
      5 1656 1493 (N18W57 L=169)   906    202        1 (1565/1458-1731/1525) -28.3 W50-W63 N14-N21
      6 1659 1412 (N13W52 L=165)   346     52        1 (1636/1380-1677/1435) -90.0 W50-W54 N11-N15
      7 1088 1307 (N22W10 L=123)   554    134        2 (1039/1261-1145/1344) -60.3 W07-W12 N18-N25
      8  156 1169 (N30E69 L= 44)   646     74        1 ( 135/1140- 172/1205)  53.1 E72-E66 N28-N32
      9  191 1126 (N27E63 L= 50)  1126    125        3 ( 161/1068- 216/1192)  63.4 E66-E59 N23-N31
     10  974 1018 (N08E03 L=110)   243    125        3 ( 921/ 998-1035/1037) -26.6 E06-W00 N05-N09
     11 1817  833 (S24W52 L=165)  2150    355        1 (1737/ 686-1870/ 987)  43.2 W43-W59 S31-S16
     12  277  908 (N13E54 L= 59)   871    262        1 ( 227/ 843- 321/ 960)  28.6 E59-E48 N09-N15
     13  737  776 (S02E22 L= 91)   241     92        0 ( 727/ 730- 748/ 825)  59.0 E23-E20 S04-N01
     14 1593  761 (S22W30 L=143)   283    107        0 (1557/ 724-1615/ 783) -68.2 W27-W31 S24-S19
     15 1404  753 (S17W17 L=130)   264     83        1 (1384/ 715-1437/ 779)  14.0 W15-W19 S18-S15
     16 1160  652 (S17E00 L=113)   480    112        2 (1128/ 591-1193/ 706) -90.0 E01-W01 S21-S13
     17 1271  688 (S18W07 L=120)   254     50        2 (1236/ 669-1298/ 704) -26.6 W05-W09 S19-S16
     18 1105  620 (S18E04 L=109)   229    100        0 (1077/ 584-1143/ 661) -71.6 E05-E02 S21-S15
     19  519  452 (S18E48 L= 65)  1114    222        2 ( 422/ 416- 602/ 517)   5.7 E58-E38 S20-S14
     20 1102  342 (S38E12 L=101)  4185    675        7 ( 821/ 219-1359/ 479)   8.1 E40-W09 S42-S32
  

    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