Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1695 1540 (N29W65 L=196)  2127    184        4 (1647/1463-1745/1611)  70.0 W60-W74 N22-N33
      2 1387 1551 (N35W35 L=166)   591     84        0 (1362/1505-1413/1590)  71.6 W32-W38 N31-N37
      3 1027 1392 (N28W04 L=135)   432    126        1 ( 998/1336-1075/1446) -69.4 W02-W06 N24-N32
      4  575 1308 (N27E29 L=102)  2510    504        4 ( 427/1186- 786/1367)   8.4 E40-E13 N19-N30
      5 1507 1272 (N15W35 L=166)   948    257        3 (1440/1194-1567/1343) -65.6 W30-W39 N09-N20
      6  199 1269 (N25E68 L= 63)  1079    110        5 ( 142/1228- 229/1296)  -8.5 E83-E62 N22-N26
      7  246 1200 (N21E59 L= 72)   996    142        1 ( 221/1140- 275/1250)  81.9 E61-E55 N17-N24
      8  612 1091 (N13E26 L=105)   579    136        2 ( 543/1050- 663/1140) -40.6 E30-E22 N10-N16
      9 1752  857 (S14W50 L=181)   515     33        0 (1726/ 835-1776/ 884)  26.6 W47-W52 S15-S12
     10  422  746 (S08E44 L= 87)   387     68        2 ( 405/ 703- 442/ 776)  68.2 E45-E41 S10-S05
     11 1289  506 (S31W13 L=144)   369    106        0 (1236/ 493-1341/ 519)  -7.1 W09-W17 S32-S29
     12  608  390 (S33E41 L= 91)   711    151        0 ( 575/ 332- 653/ 462)  84.8 E42-E38 S38-S27
     13 1029  429 (S34E06 L=125)   389    105        0 ( 972/ 413-1089/ 442) -12.5 E10-E01 S35-S32
     14 1056  197 (S57E10 L=121)   656     98        0 (1009/ 185-1114/ 209)   0.0 E15-E03 S58-S54
  

    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