Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1279 1806 (N52E12 L=220)   439     64        1 (1257/1781-1311/1829)  -9.5 E14-E08 N49-N55
      2  730 1728 (N27E43 L=190)   550     87        0 ( 703/1683- 755/1774) -60.3 E45-E40 N23-N30
      3  429 1667 (N16E64 L=169)   847    152        2 ( 407/1602- 454/1746) -38.2 E72-E58 N11-N22
      4 1423 1723 (N51W04 L=237)   362     52        1 (1394/1710-1451/1736)  26.6 W01-W07 N49-N53
      5  388 1387 (S01E50 L=182)   605    138        1 ( 326/1351- 437/1415)   5.2 E55-E44 S03-N00
      6  247 1123 (S19E55 L=177)  1205    150        4 ( 180/1079- 316/1159)  23.2 E62-E48 S22-S16
      7  865 1084 (S07E10 L=222)   350    170        0 ( 831/1019- 932/1128)  69.4 E11-E07 S11-S03
      8 1536 1078 (N11W28 L=260)   209     48        2 (1517/1051-1553/1098) -33.7 W25-W29 N09-N12
      9 1242  964 (S03W13 L=246)   460    142        2 (1219/ 895-1278/1026) -39.8 W11-W17 S06-N00
     10  620  841 (S27E19 L=213)   724    235        0 ( 589/ 742- 686/ 919)  85.2 E21-E16 S32-S20
     11 1440  674 (S13W34 L=267)   333    105        0 (1390/ 654-1505/ 692)  33.7 W31-W38 S15-S10
     12  700  466 (S49E04 L=228)   833    171        2 ( 623/ 437- 778/ 495)   8.1 E11-W03 S51-S44
     13 1370  427 (S28W43 L=275)   390     68        0 (1336/ 410-1407/ 450)  18.4 W39-W45 S29-S26
     14 1560  347 (S25W65 L=297)   483     67        1 (1533/ 324-1588/ 365)  56.3 W61-W69 S27-S24
     15 1171  219 (S48W50 L=282)   905    125        2 (1126/ 171-1226/ 258)  -2.9 W41-W61 S48-S45
  

    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