Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1472 1542 (N26W45 L= 62)   649    200        0 (1387/1499-1557/1580) -45.0 W40-W49 N20-N29
      2 1264 1438 (N25W26 L= 42)   707    239        3 (1219/1345-1299/1543)  34.7 W19-W32 N20-N30
      3  889 1393 (N32W00 L= 16)   606    152        0 ( 827/1329- 940/1444) -73.3 E03-W02 N26-N36
      4 1819 1341 (N04W66 L= 82)   716     90        1 (1790/1302-1855/1377) -50.2 W63-W69 N00-N06
      5  965 1222 (N20W01 L= 17)   247     40        1 ( 940/1200- 989/1250) -45.0 W00-W02 N18-N21
      6  798 1142 (N19E11 L=  5)   370    131        2 ( 741/1097- 838/1171) -50.2 E14-E08 N15-N21
      7  674 1120 (N20E20 L=357)   263    126        0 ( 652/1085- 715/1169) -71.6 E20-E17 N17-N23
      8  233  981 (N19E58 L=318)   849    223        2 ( 211/ 870- 269/1065)  71.6 E62-E53 N11-N23
      9 1805  965 (S16W52 L= 68)   387     90        0 (1765/ 944-1840/ 993)   0.0 W47-W56 S17-S15
     10  878  772 (S04E14 L=  2)   474    208        1 ( 822/ 685- 945/ 836)  32.5 E19-E08 S08-S01
     11 1683  778 (S24W38 L= 54)   299     64        0 (1668/ 745-1696/ 819)  76.0 W36-W39 S25-S21
     12 1092  500 (S26E08 L=  8)   803    242        1 ( 990/ 444-1205/ 565)   7.1 E16-W00 S28-S24
     13  817  504 (S20E25 L=351)   564    230        1 ( 718/ 472- 891/ 555)   0.0 E32-E19 S21-S17
     14  661  225 (S38E57 L=319)   642     56        0 ( 649/ 193- 677/ 255)  26.6 E63-E51 S41-S35
  

    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