Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1334 1850 (N54W41 L= 66)   588    177        1 (1305/1814-1366/1879)  23.2 W34-W48 N50-N56
      2 1442 1704 (N40W39 L= 65)   397     66        0 (1412/1684-1467/1725) -14.0 W36-W41 N37-N41
      3 1057 1627 (N36W07 L= 33)   286     62        0 (1035/1605-1076/1656)  45.0 W05-W08 N34-N38
      4 1739 1459 (N21W55 L= 81)   457     96        2 (1706/1434-1772/1479) -18.4 W52-W58 N19-N22
      5 1795 1417 (N18W60 L= 85)   441     86        0 (1781/1374-1812/1441)  45.0 W57-W62 N15-N19
      6 1020 1405 (N21W02 L= 28)   283     71        0 ( 980/1376-1060/1433) -45.0 W00-W04 N19-N23
      7  200 1208 (N15E58 L=327)   437    105        1 ( 182/1169- 216/1244) -51.3 E60-E56 N12-N17
      8 1259 1222 (N08W15 L= 41)   222     63        0 (1224/1210-1293/1236) -14.0 W13-W17 N07-N09
      9  447 1058 (N04E36 L=349)  1090    278        4 ( 362/ 927- 492/1162) -65.2 E42-E33 S03-N10
     10  270 1079 (N07E51 L=335)   381     97        1 ( 245/1039- 302/1117)  53.1 E53-E47 N04-N08
     11  189 1012 (N04E60 L=326)  1276    293        3 ( 139/ 969- 267/1052)  -7.6 E66-E51 N01-N06
     12  295  777 (S11E52 L=333)   721    187        1 ( 248/ 729- 339/ 834)  29.1 E58-E47 S13-S08
     13  380  614 (S22E49 L=337)   458     64        1 ( 360/ 572- 400/ 651) -90.0 E50-E47 S24-S19
     14 1005  408 (S41E07 L= 19)   802    188        0 ( 918/ 362-1111/ 461)  17.4 E14-W02 S44-S37
  

    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