Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  433 1484 (N21E50 L=183)   854    218        2 ( 401/1431- 475/1553) -32.5 E55-E43 N17-N24
      2  963 1415 (N24E10 L=223)   425    173        1 ( 939/1351- 990/1502) -78.7 E10-E07 N19-N29
      3  586 1335 (N13E33 L=199)   284    114        0 ( 547/1296- 621/1362) -23.2 E36-E29 N11-N15
      4  940 1227 (N12E08 L=225)   376     53        1 ( 912/1192- 970/1265) -53.1 E10-E05 N09-N13
      5  321 1192 (N01E51 L=182)   422    115        2 ( 292/1163- 355/1228) -15.9 E54-E47 N00-N03
      6 1681 1135 (N16W43 L=275)   752    184        3 (1638/1087-1708/1205) -54.5 W39-W45 N12-N19
      7 1481 1137 (N13W28 L=260)   517    203        1 (1387/1111-1553/1161)   5.2 W21-W32 N11-N15
      8 1568  920 (N01W36 L=269)  1639    378        3 (1502/ 792-1637/1062) -63.4 W32-W43 S05-N10
      9  493  807 (S20E32 L=200)   269     96        0 ( 457/ 782- 546/ 841) -15.9 E35-E28 S21-S18
     10 1354  817 (S08W23 L=256)   243     94        0 (1323/ 795-1394/ 834)   0.0 W21-W26 S09-S06
     11 1284  707 (S16W21 L=253)  1072    367        4 (1165/ 665-1412/ 763)  14.0 W13-W29 S19-S12
     12 1623  655 (S14W47 L=279)  1634    310        2 (1507/ 533-1694/ 756)  66.4 W41-W50 S23-S07
     13 1182  562 (S26W17 L=250)   270    100        0 (1166/ 521-1202/ 609) -59.0 W15-W19 S28-S23
     14 1353  446 (S32W33 L=266)   729    156        1 (1281/ 422-1420/ 477)  16.7 W27-W38 S34-S29
  

    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