Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  578 1794 (N31E63 L=266)   591     53        1 ( 551/1771- 607/1817)  -4.8 E70-E58 N29-N32
      2  484 1664 (N20E58 L=271)  1397    117        3 ( 437/1615- 537/1713)  56.3 E61-E54 N16-N23
      3 1286 1446 (N27W04 L=334)  1201    378        0 (1238/1292-1353/1591) -50.9 E03-W11 N18-N35
      4 1515 1370 (N29W21 L=351)   692    145        0 (1457/1309-1565/1406) -12.5 W16-W25 N26-N30
      5  889 1226 (N03E13 L=317)   791    207        1 ( 798/1174- 957/1300)  58.0 E16-E09 N00-N08
      6 1277 1172 (N10W10 L=340)   555    209        1 (1217/1115-1315/1234)  82.9 W06-W12 N05-N13
      7 1606 1098 (N15W33 L=  2)   859    196        2 (1557/1013-1652/1176) -33.7 W27-W37 N10-N18
      8 1441  933 (N02W26 L=355)   937    231        1 (1341/ 904-1551/ 979)   7.6 W18-W33 N00-N04
      9 1874  822 (N09W66 L= 35)   757    141        1 (1834/ 765-1906/ 883)  60.9 W63-W69 N04-N13
     10  420  829 (S31E35 L=295)   373    125        0 ( 381/ 787- 478/ 851)  32.0 E38-E30 S34-S28
     11 1107  781 (S16W11 L=341)   467    100        0 (1065/ 758-1163/ 806)  31.0 W08-W14 S17-S14
     12 1753  631 (S05W61 L= 30)   554     52        2 (1733/ 599-1771/ 665) -76.0 W58-W63 S07-S03
     13  220  629 (S49E66 L=264)   903     78        2 ( 182/ 606- 258/ 652)   7.4 E79-E56 S51-S46
     14  890  431 (S43W10 L=340)  1124    288        1 ( 786/ 406-1015/ 468)  19.4 W01-W19 S47-S39
     15  647  393 (S55E08 L=321)   296     18        1 ( 628/ 375- 669/ 412)  26.6 E10-E05 S56-S53
  

    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