Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1444 1680 (N35W50 L=169)   728    132        1 (1383/1656-1499/1697) -24.0 W45-W54 N32-N36
      2  856 1518 (N41W01 L=119)   726    166        7 ( 803/1472- 904/1558) -56.3 E03-W03 N36-N43
      3 1162 1312 (N21W15 L=134)  1251    410        4 ( 982/1252-1338/1405) -45.0 W06-W25 N13-N30
      4  604 1277 (N30E22 L= 96)  1110    261        2 ( 512/1189- 692/1366) -51.8 E29-E16 N23-N37
      5  326 1253 (N34E46 L= 73)   350     93        0 ( 299/1226- 354/1276) -45.0 E48-E43 N31-N35
      6 1456 1105 (N02W27 L=146)  1469    296        4 (1343/ 978-1529/1223) -79.4 W23-W30 S05-N11
      7 1870 1037 (S14W60 L=179)  1790    310        4 (1818/ 955-1923/1121)  26.6 W53-W69 S17-S10
      8  693 1059 (N16E19 L= 99)   393    138        1 ( 626/1031- 749/1098)   0.0 E23-E15 N14-N17
      9 1469  776 (S18W22 L=140)   744    150        1 (1409/ 713-1505/ 825) -82.9 W18-W23 S22-S14
     10  677  562 (S14E32 L= 87)   540     96        1 ( 646/ 525- 723/ 601)   8.1 E35-E28 S15-S11
     11  391  493 (S14E57 L= 61)  1888    282        3 ( 364/ 393- 418/ 583)  45.0 E63-E50 S21-S08
     12 1171  391 (S36E06 L=113)  1231    234        2 (1116/ 325-1208/ 470)  42.0 E11-E01 S40-S30
     13  525  358 (S25E53 L= 66)   543     86        1 ( 494/ 342- 561/ 377)   0.0 E56-E49 S26-S23
     14  725  354 (S29E37 L= 81)   533     97        1 ( 678/ 334- 765/ 377)  -9.5 E40-E33 S30-S27
  

    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