Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  951 1742 (N39E19 L=136)   454     93        0 ( 896/1729-1001/1759)  23.2 E23-E16 N37-N40
      2  376 1601 (N21E57 L= 98)  1119    185        2 ( 348/1559- 414/1666) -63.4 E61-E52 N18-N26
      3  652 1625 (N25E36 L=120)   539    114        0 ( 615/1581- 685/1661) -32.0 E39-E31 N22-N27
      4  455 1490 (N14E45 L=110)  2241    493        4 ( 410/1268- 494/1647) -53.1 E55-E37 N00-N24
      5  269 1474 (N12E63 L= 93)  1176    201        3 ( 225/1436- 323/1502)  18.4 E68-E57 N09-N14
      6  343 1419 (N09E53 L=103)   932    126        2 ( 295/1361- 389/1469)  54.5 E55-E49 N05-N12
      7 1042 1212 (N05E02 L=154)   366    138        0 ( 987/1147-1069/1249) -38.7 E05-W00 N01-N06
      8  217  973 (S19E56 L= 99)   383     90        0 ( 203/ 921- 230/1015)  78.7 E57-E55 S21-S16
      9 1204  934 (S09W12 L=168)   413    197        0 (1129/ 849-1254/ 969) -29.7 W07-W15 S13-S06
     10 1343  777 (S15W23 L=179)   603    148        1 (1268/ 752-1424/ 807)  29.1 W19-W28 S17-S12
     11  464  715 (S32E34 L=121)   282     66        0 ( 433/ 692- 496/ 731)  31.0 E36-E31 S34-S31
     12  318  577 (S43E50 L=105)   780    158        1 ( 287/ 530- 355/ 623)  41.2 E54-E45 S46-S39
     13  467  496 (S48E37 L=118)  1026    202        1 ( 385/ 479- 545/ 527)  10.0 E46-E29 S49-S45
     14  858  206 (S67W06 L=162)   563     66        1 ( 833/ 182- 885/ 233)  26.6 W03-W10 S69-S63
  

    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