Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  651 1515 (N33E22 L= 12)  3693    630        5 ( 438/1321- 864/1669) -35.9 E47-E07 N17-N47
      2  410 1634 (N45E52 L=343)   498     61        1 ( 393/1604- 435/1653)  76.0 E55-E47 N42-N47
      3 1345 1607 (N33W29 L= 64)   310     88        0 (1291/1589-1387/1627) -15.9 W25-W32 N31-N34
      4 1163 1451 (N24W13 L= 47)   425    158        0 (1108/1405-1228/1506) -49.4 W09-W16 N20-N27
      5  323 1448 (N32E52 L=343)   372     28        1 ( 305/1430- 348/1466)   0.0 E54-E49 N30-N33
      6  223 1241 (N19E58 L=336)   643     79        4 ( 195/1197- 254/1276) -59.0 E62-E54 N16-N21
      7  299 1198 (N15E49 L=345)   460     66        3 ( 267/1173- 339/1222) -23.2 E52-E45 N13-N17
      8  353 1110 (N09E44 L=350)   814    233        2 ( 273/1076- 454/1156)   3.6 E51-E35 N07-N12
      9  137 1076 (N10E68 L=326)  1658    181        7 (  92/ 987- 197/1121)  82.9 E78-E59 N04-N12
     10  486  737 (S14E38 L=356)  1214    292        4 ( 456/ 595- 525/ 867)  63.4 E41-E32 S22-S06
     11  741  733 (S17E20 L= 14)   583    261        0 ( 669/ 650- 841/ 813)  29.7 E26-E12 S21-S12
     12 1451  724 (S23W26 L= 60)   946    272        1 (1359/ 677-1559/ 810) -28.1 W19-W34 S26-S16
     13 1635  787 (S20W40 L= 74)   458    105        0 (1586/ 770-1689/ 805)   6.3 W35-W44 S21-S19
     14  354  472 (S29E63 L=332)   518     39        0 ( 333/ 447- 378/ 493)  12.5 E67-E58 S30-S28
     15 1671  475 (S42W54 L= 88)   426     45        0 (1646/ 456-1697/ 493) -18.4 W49-W58 S43-S40
  

    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