Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1504 1780 (N33W70 L= 80)   850    101        1 (1464/1762-1556/1806) -45.0 W64-W74 N30-N35
      2 1437 1716 (N32W55 L= 65)   501     78        2 (1402/1688-1472/1746) -90.0 W53-W57 N29-N34
      3  601 1616 (N53E14 L=356)  2280    413        3 ( 420/1523- 767/1690)  -1.5 E36-W02 N50-N55
      4 1133 1439 (N25W18 L= 28)   516    130        1 (1095/1375-1158/1485)  81.9 W16-W20 N21-N28
      5  438 1339 (N38E33 L=337)   613    126        2 ( 385/1288- 487/1360) -36.9 E37-E27 N33-N40
      6 1195 1262 (N13W16 L= 26)   546    115        2 (1155/1235-1256/1295) -51.3 W13-W18 N10-N15
      7  250 1004 (N21E54 L=316)  1710    322        2 ( 145/ 896- 360/1094) -35.5 E67-E45 N13-N28
      8  199  861 (N14E63 L=307)  4813    467        8 (  94/ 703- 287/1043) -57.5 E79-E52 N04-N26
      9 1898  996 (S22W63 L= 73)   688    103        1 (1854/ 972-1937/1022) -19.7 W56-W70 S23-S18
     10 1145  746 (S14E00 L= 10)   915    339        1 (1049/ 600-1229/ 868)  34.5 E09-W07 S19-S08
     11 1337  658 (S24W09 L= 19)  1202    202        4 (1209/ 569-1418/ 753)  17.4 E01-W15 S27-S19
     12  892  615 (S15E18 L=352)   439    120        0 ( 844/ 587- 948/ 658) -56.3 E20-E15 S17-S11
     13 1547  524 (S40W22 L= 32)   301     25        0 (1526/ 500-1565/ 543) -63.4 W20-W23 S42-S38
     14  457  502 (S12E52 L=318)   435    113        0 ( 420/ 469- 518/ 534) -45.0 E54-E48 S14-S09
     15  577  297 (S28E57 L=313)   745    112        1 ( 553/ 244- 612/ 334)  20.6 E66-E50 S31-S25
  

    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