Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1360 1771 (N39W52 L=198)  1564    249        4 (1239/1718-1459/1817)  -1.9 W37-W67 N37-N40
      2  667 1411 (N34E14 L=133)   411    131        1 ( 613/1392- 734/1429) -12.5 E18-E09 N31-N35
      3 1763 1334 (N03W57 L=204)   490     77        0 (1731/1311-1795/1353)  -8.1 W53-W60 N01-N04
      4  895 1313 (N22E01 L=146)   210     66        0 ( 860/1300- 928/1326)   0.0 E03-W01 N21-N23
      5 1384 1261 (N08W26 L=173)   214     46        0 (1361/1229-1404/1285) -90.0 W25-W27 N06-N09
      6  119 1151 (N29E73 L= 74)   991     96        2 (  97/1108- 143/1199) -23.2 E82-E67 N25-N31
      7 1814 1176 (S07W57 L=203)   563     35        2 (1785/1155-1842/1199) -18.4 W53-W59 S08-S05
      8  948 1170 (N13E01 L=146)   180    122        0 ( 893/1154-1002/1192) -18.4 E04-W02 N12-N14
      9 1862 1078 (S14W60 L=207)  2743    196        8 (1795/ 997-1915/1170)  28.1 W51-W69 S17-S08
     10  399 1051 (N18E39 L=108)  1398    341        3 ( 250/1008- 521/1135)   2.3 E53-E28 N15-N20
     11 1629 1030 (S10W37 L=184)   329     90        1 (1611/ 992-1655/1081)  68.2 W36-W38 S12-S07
     12 1725  884 (S21W43 L=189)   492    114        0 (1705/ 834-1742/ 945)  63.4 W40-W44 S24-S17
     13 1574  799 (S23W29 L=176)   874    210        1 (1499/ 725-1625/ 885)  35.0 W23-W34 S25-S18
     14 1387  743 (S21W15 L=162)   695    264        1 (1344/ 628-1444/ 855)  47.5 W10-W21 S27-S15
     15 1099  747 (S14E02 L=145)   364    193        0 (1039/ 666-1164/ 827)  33.7 E07-W03 S17-S10
     16 1606  691 (S30W31 L=178)   494    123        0 (1556/ 652-1647/ 744)  29.7 W26-W34 S32-S27
     17  509  625 (S09E41 L=105)   334     81        2 ( 494/ 590- 527/ 665)  53.1 E43-E39 S10-S06
     18 1017  539 (S25E12 L=135)   276     90        0 ( 989/ 497-1045/ 577)  38.7 E14-E09 S27-S23
     19 1734  489 (S50W51 L=197)   489     43        1 (1703/ 479-1763/ 504)  -9.5 W44-W57 S52-S48
     20  714  345 (S31E41 L=106)   955    264        1 ( 686/ 221- 735/ 475)  40.4 E53-E32 S40-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