Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1221 1723 (N43W17 L= 76)   909    146        2 (1170/1646-1280/1783) -59.0 W13-W20 N36-N48
      2 1770 1552 (N31W65 L=124)  1853    202        4 (1684/1506-1846/1598) -10.8 W54-W79 N27-N33
      3 1028 1543 (N29W01 L= 60)   277     53        1 ( 996/1519-1058/1566) -45.0 E01-W02 N27-N30
      4 1557 1467 (N24W38 L= 96)   319     37        1 (1533/1442-1585/1487) -14.0 W35-W39 N22-N25
      5 1781 1343 (N16W55 L=114)  1665    338        4 (1719/1182-1845/1466) -77.5 W49-W59 N06-N24
      6 1674 1338 (N16W45 L=103)   607    106        2 (1648/1286-1712/1391) -81.9 W41-W47 N12-N19
      7  181 1250 (N13E63 L=356)  2719    332        4 ( 114/1135- 254/1365)  47.3 E71-E55 N06-N19
      8  298 1311 (N16E51 L=  8)   573     89        2 ( 277/1268- 322/1361)  90.0 E52-E47 N13-N19
      9  363 1068 (N01E43 L= 16)   522    141        2 ( 307/1031- 419/1098)  -6.3 E47-E38 S01-N02
     10  526  650 (S25E35 L= 24)  4080    943        9 ( 317/ 368- 647/1084)  35.4 E84-E23 S42-N01
     11  372  879 (S10E43 L= 15)  1313    324        5 ( 274/ 774- 441/ 986) -52.4 E50-E38 S16-S03
     12 1386  924 (S09W22 L= 81)   206     45        2 (1356/ 911-1418/ 939)  14.0 W20-W24 S10-S08
     13  271  876 (S10E52 L=  6)  1072    157        4 ( 215/ 838- 326/ 919) -21.8 E57-E47 S12-S07
     14  809  898 (S10E13 L= 45)   320     84        2 ( 771/ 875- 846/ 915)  21.8 E15-E10 S11-S09
     15  265  784 (S15E55 L=  4)  1416    150        3 ( 235/ 705- 311/ 848)  69.4 E59-E49 S19-S11
     16  198  675 (S21E67 L=351)  3368    265        3 ( 162/ 582- 228/ 811)  24.9 E86-E58 S26-S13
     17  927  730 (S21E07 L= 52)   203     76        0 ( 910/ 697- 951/ 768) -63.4 E07-E05 S22-S18
     18 1078  685 (S24W03 L= 62)  1031    313        2 ( 954/ 659-1217/ 751)  11.3 E04-W11 S25-S19
     19 1664  532 (S33W51 L=110)  1211    187        3 (1586/ 503-1744/ 566)  19.7 W43-W59 S35-S30
     20 1359  423 (S42W26 L= 85)   342     46        0 (1341/ 401-1382/ 456) -45.0 W24-W28 S43-S39
     21 1266  382 (S45W19 L= 78)   672    119        2 (1209/ 350-1317/ 419)  26.6 W15-W23 S47-S41
     22 1134  333 (S49W09 L= 67)   274     49        0 (1116/ 311-1155/ 362) -53.1 W07-W10 S50-S46
     23 1279  240 (S57W27 L= 86)   551     67        1 (1252/ 215-1310/ 269)  45.0 W23-W31 S59-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