Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  334 1458 (N50E46 L=  8)   493    119        0 ( 292/1433- 389/1472)  -7.6 E53-E37 N48-N51
      2  642 1311 (N32E16 L= 38)  1577    380        5 ( 474/1255- 805/1348) -18.4 E29-E05 N25-N35
      3  462 1136 (N26E32 L= 21)   333     78        0 ( 424/1113- 502/1157) -26.6 E35-E29 N23-N27
      4  245 1038 (N25E54 L=360)   962    222        3 ( 200/ 960- 304/1138) -55.3 E59-E48 N18-N31
      5  838 1090 (N14E09 L= 45)   208    116        1 ( 815/1039- 876/1132)  38.7 E10-E05 N11-N15
      6  640 1051 (N16E22 L= 32)   353    126        2 ( 576/1032- 700/1072) -29.7 E25-E17 N14-N18
      7 1634  887 (S19W33 L= 87)   314     89        0 (1612/ 848-1648/ 928)  45.0 W30-W34 S21-S17
      8  714  602 (S10E30 L= 24)   256     92        0 ( 670/ 581- 762/ 618)  -9.5 E32-E26 S11-S09
      9 1709  581 (S43W38 L= 91)   404     68        0 (1674/ 566-1746/ 604)  -6.3 W33-W42 S44-S41
     10  418  484 (S11E57 L=357)   403     49        1 ( 393/ 459- 441/ 503) -56.3 E58-E54 S12-S09
     11 1042  320 (S38E22 L= 31)  1679    284        5 ( 945/ 246-1136/ 422)  15.9 E32-E11 S41-S33
     12  622  320 (S26E51 L=  2)   478     90        0 ( 580/ 297- 644/ 352) -45.0 E53-E47 S27-S23
     13  625  248 (S31E59 L=355)   614     70        1 ( 602/ 208- 645/ 275)  24.4 E65-E53 S34-S29
     14  876  234 (S39E40 L= 14)   589     87        0 ( 840/ 217- 924/ 258) -45.0 E42-E35 S41-S36
  

    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