Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  778 1285 (N20E16 L=220)   522     73        2 ( 734/1261- 821/1320)  -9.5 E19-E13 N18-N21
      2 1517 1256 (N17W33 L=269)   526    199        1 (1465/1172-1544/1318)  71.6 W30-W35 N12-N21
      3 1344 1281 (N19W21 L=257)   310     59        0 (1305/1259-1381/1301)  11.3 W18-W23 N17-N20
      4 1397 1151 (N11W24 L=260)   525    137        1 (1343/1110-1466/1203) -20.6 W20-W28 N08-N14
      5  492 1169 (N12E36 L=200)   266     96        1 ( 448/1149- 531/1183) -15.9 E39-E32 N10-N12
      6 1585 1031 (N03W37 L=273)   276     62        1 (1556/1006-1615/1057)  45.0 W34-W39 N01-N04
      7  343  960 (S02E47 L=189)  1407    268        4 ( 268/ 913- 414/1012)  -4.1 E54-E40 S04-N01
      8  761  973 (N00E16 L=220)   308     68        2 ( 744/ 931- 779/1012) -76.0 E17-E15 S02-N02
      9 1408  850 (S07W24 L=261)   245     74        0 (1388/ 817-1441/ 881)  53.1 W23-W26 S09-S05
     10 1737  781 (S13W51 L=287)  1019    137        1 (1702/ 717-1767/ 860)  83.7 W48-W53 S16-S07
     11  633  671 (S19E26 L=210)   451    110        0 ( 595/ 617- 665/ 714) -71.6 E28-E23 S22-S16
     12 1377  567 (S26W25 L=261)   301    100        0 (1350/ 518-1399/ 614)  74.1 W23-W25 S29-S22
     13 1102  580 (S25W05 L=241)   264     85        0 (1065/ 536-1138/ 613)  51.3 W02-W07 S27-S22
     14 1614  579 (S26W44 L=280)   483     78        1 (1579/ 557-1643/ 604)  11.3 W40-W46 S27-S24
     15 1071  417 (S37W04 L=240)   506    118        0 (1025/ 380-1111/ 466)  45.0 W00-W06 S40-S33
  

    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