Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  517 1615 (N15E51 L=188)   350    113        1 ( 483/1585- 544/1636)   0.0 E54-E47 N14-N16
      2  527 1546 (N11E47 L=192)   281     76        2 ( 500/1525- 560/1565)  11.3 E49-E44 N10-N12
      3  445 1487 (N06E50 L=189)   353    105        0 ( 407/1475- 487/1500)  18.4 E54-E47 N05-N07
      4 1356 1350 (N22W10 L=249)   563    151        1 (1324/1275-1395/1423) -41.2 W06-W14 N18-N25
      5  286 1171 (S15E52 L=187)  1214    339        0 ( 182/1087- 357/1300)  61.9 E61-E48 S21-S06
      6  351  910 (S29E41 L=198)   338     66        1 ( 331/ 870- 370/ 944) -63.4 E43-E38 S31-S27
      7  684  835 (S25E15 L=224)   213     44        1 ( 668/ 805- 699/ 863) -71.6 E15-E13 S26-S23
      8  194  787 (S41E56 L=183)   512    142        0 ( 162/ 770- 226/ 804)   8.1 E59-E52 S41-S39
      9  998  678 (S25W09 L=248)   262     77        1 ( 974/ 646-1026/ 722) -31.0 W06-W11 S26-S23
     10 1436  688 (S12W34 L=273)   262     70        0 (1407/ 661-1475/ 712)  53.1 W32-W35 S13-S09
     11  824  657 (S32E01 L=238)   276     70        1 ( 789/ 627- 853/ 681) -14.0 E03-W01 S32-S30
     12  838  395 (S49W10 L=249)   346    118        1 ( 812/ 351- 851/ 441) -54.5 W07-W12 S52-S45
     13  974  283 (S52W28 L=267)  1571    364        9 ( 932/ 206-1040/ 385) -28.8 W19-W39 S55-S44
     14 1264  339 (S37W41 L=281)   582    144        4 (1234/ 304-1303/ 371)   9.5 W37-W44 S39-S34
     15 1083  286 (S47W35 L=274)   367    115        2 (1065/ 244-1108/ 314) -63.4 W31-W37 S50-S44
  

    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