Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1121 1504 (N28W18 L=334)   371     98        0 (1076/1472-1163/1529) -59.0 W15-W19 N25-N30
      2  567 1394 (N34E22 L=295)   240     76        0 ( 530/1374- 603/1407)   0.0 E24-E18 N33-N34
      3 1828 1370 (N03W65 L= 21)  1368    150        0 (1773/1316-1898/1407)   2.5 W56-W79 N01-N04
      4 1499 1361 (N11W36 L=353)   380     71        1 (1463/1343-1540/1380) -31.0 W34-W39 N09-N12
      5 1748 1120 (S08W48 L=  5)  1397    391        4 (1683/ 981-1839/1293)  33.7 W40-W61 S14-N00
      6  624 1162 (N19E21 L=296)   210     79        0 ( 594/1140- 654/1192)  11.3 E23-E18 N17-N19
      7 1508  758 (S23W24 L=340)  3211    806        5 (1164/ 584-1788/ 943)   7.0 E01-W48 S27-S18
      8  484  900 (N07E35 L=282)   259     55        0 ( 450/ 876- 510/ 919) -26.6 E37-E33 N04-N07
      9 1219  866 (S10W08 L=324)   390    195        0 (1175/ 839-1290/ 918)  -8.1 W04-W11 S11-S07
     10  315  842 (N06E49 L=267)   698    119        1 ( 267/ 800- 365/ 873) -29.7 E53-E45 N03-N08
     11  238  796 (N05E58 L=259)   601     97        0 ( 209/ 756- 277/ 829)  20.6 E61-E53 N03-N06
     12 1102  491 (S30E08 L=309)   610    163        2 (1059/ 417-1155/ 547)  31.0 E13-E03 S34-S26
     13  713  374 (S29E38 L=278)   309     55        1 ( 688/ 355- 739/ 398)   0.0 E40-E35 S30-S27
     14  568  300 (S31E55 L=261)   576     64        2 ( 542/ 273- 602/ 319)   6.3 E59-E50 S32-S29
     15  856  248 (S41E37 L=280)   450     85        0 ( 817/ 220- 893/ 274)  12.5 E41-E31 S43-S39
  

    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