Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1124 1874 (N56W40 L=  2)  1175    115        1 (1083/1826-1166/1909)  66.0 W32-W47 N51-N60
      2 1037 1828 (N54W26 L=348)   831    110        2 ( 977/1787-1078/1872)  14.9 W18-W33 N51-N58
      3 1488 1781 (N39W63 L= 25)  2938    306        5 (1353/1706-1610/1832) -33.7 W50-W75 N31-N45
      4  916 1585 (N38W04 L=326)  1154    292        1 ( 761/1545-1023/1609) -14.7 E07-W12 N33-N41
      5 1231 1584 (N31W26 L=348)   362    115        0 (1195/1552-1274/1601)   0.0 W22-W29 N29-N32
      6 1215 1451 (N23W20 L=342)   260     90        1 (1175/1432-1262/1467)  -9.5 W17-W23 N21-N24
      7  502 1367 (N31E29 L=292)  1700    471        1 ( 304/1300- 732/1407) -18.0 E49-E12 N25-N37
      8 1196 1352 (N17W16 L=338)   522    157        1 (1155/1314-1246/1400) -31.0 W14-W19 N14-N20
      9  300 1234 (N26E48 L=274)   850    229        3 ( 254/1126- 327/1325) -65.2 E53-E44 N19-N32
     10 1002 1277 (N16W03 L=325)   630    268        0 ( 884/1250-1118/1302) -17.1 E03-W10 N13-N19
     11  173 1247 (N29E64 L=257)   737     78        0 ( 144/1214- 205/1292) -26.6 E72-E58 N26-N32
     12  608 1234 (N21E22 L=300)   377    176        0 ( 520/1213- 692/1253) -22.6 E28-E16 N18-N23
     13  569 1114 (N14E26 L=296)   805    349        2 ( 444/1031- 684/1216) -45.0 E34-E19 N07-N22
     14 1807 1009 (S14W53 L= 15)   328    120        0 (1798/ 949-1814/1070)  74.1 W51-W54 S17-S10
     15 1216  748 (S18W07 L=328)   451    350        0 (1142/ 644-1287/ 874)  45.0 W00-W12 S23-S11
     16  370  825 (N01E46 L=276)   390    106        0 ( 326/ 791- 413/ 871)  12.5 E50-E41 N00-N02
     17  472  678 (S09E42 L=280)   318     52        1 ( 447/ 653- 506/ 696) -11.3 E43-E38 S10-S08
     18  604  612 (S16E34 L=287)   403    160        1 ( 545/ 580- 676/ 660) -45.0 E37-E30 S18-S11
     19  723  435 (S29E33 L=289)   662    169        0 ( 707/ 351- 758/ 501)  51.3 E38-E28 S34-S24
     20  895  461 (S30E20 L=301)   376    133        0 ( 845/ 418- 952/ 496)  11.3 E25-E15 S32-S28
     21  601  269 (S38E56 L=266)   790     75        1 ( 566/ 241- 631/ 306)  13.0 E63-E50 S40-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