Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1235 1647 (N34W33 L=136)   607    143        0 (1168/1626-1303/1665) -16.7 W28-W38 N31-N35
      2  882 1401 (N29W01 L=104)   437     95        0 ( 828/1377- 937/1424) -31.0 E02-W04 N26-N31
      3 1598 1342 (N07W43 L=146)   307     85        0 (1578/1299-1619/1374)  31.0 W40-W45 N04-N08
      4 1761 1244 (S03W53 L=156)  1352    297        1 (1670/1143-1856/1360) -63.4 W48-W59 S11-N05
      5 1046 1197 (N13W06 L=108)   225     67        0 (1010/1175-1083/1218) -36.9 W03-W07 N11-N15
      6 1571 1095 (S06W34 L=136)   769    174        1 (1537/1003-1593/1187)  74.7 W31-W35 S11-N00
      7 1810 1125 (S11W54 L=156)   445     94        2 (1777/1100-1838/1145) -45.0 W50-W56 S13-S09
      8  816 1075 (N12E11 L= 92)   262     92        0 ( 766/1060- 869/1093)  -9.5 E13-E07 N11-N12
      9  257 1010 (N21E51 L= 51)   698    193        0 ( 196/ 992- 316/1026) -14.0 E57-E45 N18-N22
     10  418  957 (N14E39 L= 64)   455    122        0 ( 374/ 896- 444/ 994) -63.4 E41-E37 N10-N16
     11 1241  815 (S13W07 L=110)   381    111        0 (1190/ 785-1295/ 858)  14.0 W03-W11 S13-S11
     12  951  562 (S20E16 L= 86)   647    250        0 ( 923/ 447- 977/ 662)  50.2 E22-E12 S26-S14
     13 1409  587 (S31W12 L=115)   646     98        2 (1381/ 536-1435/ 633)  63.4 W10-W14 S34-S28
     14  369  573 (S07E55 L= 47)  1075    196        1 ( 298/ 542- 454/ 618) -26.6 E60-E48 S09-S02
     15 1136  489 (S30E08 L= 95)   383    144        0 (1101/ 428-1162/ 557)  45.0 E11-E04 S33-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