Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1713 1420 (N07W56 L=223)  1019     85        4 (1676/1381-1749/1455) -59.0 W51-W60 N04-N09
      2 1093 1338 (N20W12 L=180)   940    382        1 ( 934/1249-1228/1400)   2.7 W00-W21 N17-N22
      3 1804 1233 (S05W56 L=224)   557     98        1 (1764/1206-1845/1263) -39.8 W53-W59 S07-S02
      4  445 1148 (N25E33 L=134)   633    147        2 ( 403/1081- 501/1185)  24.0 E37-E28 N21-N26
      5 1427 1137 (N00W25 L=193)   595    108        1 (1389/1079-1458/1180) -80.5 W23-W26 S03-N03
      6 1645 1047 (S11W37 L=205)  1312    356        6 (1528/ 949-1774/1149) -48.6 W30-W46 S19-S02
      7 1659 1123 (S07W40 L=208)   263     36        1 (1636/1098-1679/1141)  33.7 W38-W42 S08-S05
      8 1836 1097 (S14W55 L=223)   382     65        0 (1817/1065-1851/1129) -90.0 W53-W57 S15-S11
      9 1892  900 (S27W60 L=227)  3758    378        4 (1813/ 763-1940/1099)  41.8 W49-W69 S33-S16
     10 1759 1066 (S13W47 L=214)   293     31        0 (1731/1048-1782/1080) -21.8 W44-W49 S14-S11
     11  272 1012 (N21E50 L=117)   453     66        1 ( 252/ 973- 288/1057)  78.7 E52-E48 N18-N23
     12 1305  946 (S07W14 L=181)   414    149        0 (1283/ 877-1341/1025)  77.5 W12-W15 S11-S02
     13  318  897 (N13E48 L=119)  1219    231        2 ( 271/ 829- 366/ 993)  41.6 E52-E42 N09-N18
     14  146  940 (N19E67 L=101)  1025    119        1 ( 111/ 903- 202/ 988) -26.6 E72-E59 N15-N22
     15 1568  936 (S15W29 L=197)   599    139        1 (1524/ 876-1622/ 969)  14.0 W25-W33 S16-S13
     16  801  823 (S01E17 L=150)  1141    262        3 ( 705/ 725- 880/ 907) -72.9 E20-E14 S08-N05
     17 1597  860 (S20W30 L=198)   342     71        0 (1570/ 822-1623/ 894)  36.9 W27-W32 S21-S18
     18 1257  701 (S19W05 L=173)   227     47        1 (1241/ 676-1278/ 731)  71.6 W03-W06 S20-S17
     19  681  501 (S17E35 L=133)  1791    464        2 ( 550/ 360- 823/ 647)  20.1 E51-E21 S22-S11
     20  528  614 (S07E40 L=127)   278     66        0 ( 492/ 598- 556/ 635)   0.0 E43-E37 S07-S05
     21 1673  602 (S39W34 L=201)   309     32        1 (1649/ 585-1693/ 620) -31.0 W31-W36 S40-S37
     22  384  472 (S12E59 L=108)  3201    384        7 ( 290/ 344- 483/ 618)  87.1 E68-E54 S22-S02
     23  980  482 (S25E18 L=150)  2089    541        3 ( 736/ 336-1176/ 592)   6.2 E39-E02 S29-S22
  

    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