Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  778 1737 (N58W10 L=343)  3163    510        4 ( 608/1594- 979/1874)   8.4 E12-W43 N52-N61
      2 1578 1692 (N25W67 L= 40)  3528    338       12 (1456/1620-1711/1768) -53.1 W58-W77 N16-N33
      3 1563 1607 (N21W57 L= 30)  1260    291        2 (1465/1568-1690/1652) -27.9 W48-W67 N15-N25
      4 1354 1525 (N24W36 L= 10)   262     81        1 (1321/1503-1395/1552)   0.0 W33-W40 N23-N25
      5  764 1333 (N30E07 L=327)   395    117        0 ( 706/1301- 802/1372)  14.0 E11-E03 N29-N31
      6  987 1228 (N18W03 L=337)   210     50        1 ( 964/1205-1012/1251)  14.0 W01-W05 N17-N19
      7 1436  761 (S20W17 L=351)   481    129        0 (1418/ 698-1453/ 824)  60.3 W14-W19 S23-S16
      8 1277  679 (S20W05 L=339)   493    203        1 (1230/ 594-1311/ 763)  41.6 W00-W09 S24-S16
      9 1780  623 (S43W47 L= 21)   428     35        0 (1759/ 606-1799/ 646)  18.4 W43-W50 S44-S40
     10 1377  545 (S32W08 L=342)   484     79        0 (1348/ 506-1408/ 588)  38.7 W05-W11 S34-S29
     11 1353  414 (S41W03 L=336)   799    142        0 (1328/ 369-1399/ 478) -84.3 W00-W05 S45-S35
     12  955  394 (S29E24 L=310)   667    163        1 ( 894/ 360-1030/ 436) -58.0 E26-E19 S33-S24
     13  548  322 (S24E58 L=276)   872    117        1 ( 490/ 287- 590/ 357) -63.4 E61-E54 S27-S20
     14  700  294 (S29E47 L=287)   477     81        1 ( 673/ 258- 718/ 330)  35.5 E51-E44 S32-S26
     15  697  230 (S34E54 L=279)   598     83        2 ( 651/ 216- 746/ 243) -20.6 E58-E49 S35-S32
  

    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