Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  698 1815 (N73E10 L= 73)   524     79        0 ( 678/1785- 723/1849)  41.2 E14-E03 N68-N77
      2  956 1661 (N49W14 L= 97)   693     96        1 ( 932/1600- 991/1701)  58.0 W10-W17 N44-N52
      3 1026 1405 (N30W09 L= 93)   392    120        1 ( 991/1357-1072/1447)  29.7 W06-W13 N26-N31
      4 1581 1415 (N16W47 L=130)   443    108        0 (1525/1395-1617/1434) -15.9 W43-W50 N14-N18
      5  607 1193 (N25E23 L= 60)  1283    463        3 ( 442/1109- 776/1256) -24.6 E36-E12 N17-N30
      6  185 1192 (N31E67 L= 17)   899     94        1 ( 168/1149- 202/1242) -35.5 E70-E62 N28-N33
      7 1145 1192 (N14W11 L= 94)   302    102        2 (1096/1175-1192/1211) -38.7 W08-W13 N12-N16
      8  354 1082 (N22E45 L= 39)   819    160        1 ( 303/1009- 399/1145)  35.0 E50-E40 N18-N25
      9 1752 1005 (S11W48 L=131)   557    169        2 (1715/ 929-1782/1064)  36.9 W43-W51 S15-S08
     10 1205  944 (S01W09 L= 92)   689    198        2 (1148/ 858-1244/1024) -79.7 W07-W10 S07-N04
     11  834  568 (S17E22 L= 62)   225     78        0 ( 794/ 553- 874/ 578)   0.0 E24-E18 S17-S15
     12 1201  469 (S31E01 L= 82)   475    103        1 (1151/ 445-1248/ 499) -45.0 E04-W01 S34-S28
     13  819  382 (S29E30 L= 54)  1139    217        3 ( 771/ 290- 874/ 474)  75.1 E33-E27 S36-S21
     14 1104  366 (S37E11 L= 73)   370    106        0 (1069/ 323-1131/ 416)  40.6 E14-E07 S39-S33
  

    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