Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  966 1659 (N33E14 L=309)   460    120        0 ( 899/1622-1019/1697) -16.7 E19-E09 N31-N35
      2  842 1488 (N20E18 L=305)   422    110        0 ( 822/1430- 861/1544) -60.3 E20-E15 N16-N23
      3 1453 1304 (N17W23 L=346)   796    196        0 (1374/1234-1521/1381) -28.6 W17-W28 N13-N20
      4 1836 1277 (N23W57 L= 20)   995     93        4 (1810/1233-1867/1324) -45.0 W53-W60 N20-N25
      5 1770 1248 (N20W49 L= 12)   584    110        0 (1744/1206-1811/1295) -26.6 W46-W53 N17-N22
      6  145 1041 (S13E67 L=256)  1321    168        4 ( 106/ 989- 181/1087)  39.8 E74-E62 S15-S10
      7  354  952 (S17E44 L=279)   659    190        1 ( 292/ 913- 457/ 976)  14.9 E50-E35 S20-S15
      8  819  904 (S16E11 L=312)   182     43        0 ( 794/ 885- 839/ 926)  33.7 E12-E09 S16-S14
      9  152  839 (S25E69 L=254)   526     81        0 ( 127/ 804- 175/ 873)  21.8 E75-E64 S27-S22
     10  985  666 (S28W03 L=326)   633    221        0 ( 893/ 605-1056/ 738)  54.0 E02-W06 S33-S22
     11 1399  611 (S25W32 L=355)   271     79        0 (1358/ 587-1431/ 639)  53.1 W29-W33 S26-S22
     12 1493  417 (S35W49 L= 12)   541     95        0 (1454/ 387-1537/ 452)  63.4 W46-W50 S37-S31
     13  511  324 (S60E48 L=276)   766     55        1 ( 482/ 303- 544/ 347)  12.5 E57-E39 S62-S58
  

    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