Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1037 1570 (N39W02 L=223)   867    199        2 ( 958/1511-1117/1638) -39.3 E04-W08 N34-N44
      2 1594 1464 (N30W46 L=266)   751    157        0 (1525/1423-1660/1497) -20.0 W40-W51 N26-N32
      3  188 1261 (N18E69 L=152)  2248    167        5 ( 150/1191- 222/1350) -78.7 E75-E63 N13-N23
      4 1565 1263 (N17W38 L=258)   314     96        0 (1522/1248-1615/1277)  -8.1 W34-W41 N15-N17
      5  665 1194 (N15E23 L=198)   293     74        1 ( 652/1158- 685/1237) -78.7 E23-E21 N12-N17
      6  261 1150 (N11E56 L=165)   628    111        2 ( 230/1101- 300/1188)  45.0 E59-E52 N08-N13
      7 1624 1120 (N08W40 L=261)   449    118        1 (1603/1069-1643/1183)  66.8 W38-W42 N04-N11
      8  464  855 (S06E37 L=183)  1257    288        4 ( 378/ 767- 560/ 963) -45.0 E43-E30 S11-N00
      9  327  802 (S10E50 L=171)   551    122        2 ( 294/ 755- 357/ 858)  54.5 E53-E46 S13-S06
     10  318  667 (S19E54 L=167)  5177    483       13 ( 165/ 534- 444/ 803) -32.6 E70-E43 S27-S10
     11  941  748 (S13E06 L=215)   483    132        0 ( 902/ 704- 983/ 801)  56.3 E08-E02 S15-S09
     12  541  612 (S22E35 L=186)  1000    209        1 ( 491/ 514- 594/ 689)  49.8 E41-E29 S29-S16
     13 1080  573 (S25W03 L=224)   775    176        1 (1037/ 499-1128/ 632)  56.3 W00-W06 S30-S21
     14 1190  572 (S25W10 L=231)   335    127        0 (1141/ 534-1249/ 593)  23.2 W07-W14 S27-S23
     15  500  383 (S40E49 L=172)   509     70        1 ( 485/ 346- 512/ 424)  45.0 E52-E45 S42-S36
     16  959  366 (S41E07 L=214)   936    153        3 ( 900/ 319-1013/ 419)  38.7 E12-E02 S44-S36
     17  824  345 (S42E19 L=202)   877    119        1 ( 784/ 315- 881/ 386) -45.0 E21-E13 S45-S38
     18  605  250 (S52E50 L=170)   563     61        1 ( 590/ 217- 620/ 284)  36.0 E56-E44 S56-S48
     19  788  209 (S56E30 L=190)   460     31        0 ( 770/ 187- 807/ 231)  63.4 E33-E27 S59-S53
     20 1256  175 (S63W29 L=250)   760     59        2 (1239/ 136-1273/ 211) -35.8 W23-W41 S70-S57
  

    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