Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1479 1781 (N54W64 L=158)   888     82        0 (1449/1748-1508/1812)   7.4 W53-W84 N51-N56
      2  644 1710 (N52E38 L= 56)   690    110        1 ( 605/1664- 683/1752)  76.0 E41-E34 N48-N56
      3 1589 1591 (N38W54 L=148)   527     68        1 (1564/1569-1622/1615)  -9.5 W49-W57 N36-N39
      4  943 1437 (N31E04 L= 90)  2576    644        4 ( 675/1284-1153/1555) -29.7 E26-W09 N19-N39
      5 1476 1284 (N18W31 L=126)   479    184        0 (1452/1206-1515/1353)  66.0 W29-W35 N13-N22
      6 1274 1056 (N05W16 L=110)   261     69        1 (1248/1030-1305/1075) -18.4 W14-W17 N03-N06
      7 1679  760 (S15W46 L=140)   473    119        1 (1647/ 716-1713/ 813)  51.3 W43-W48 S18-S12
      8 1100  688 (S17W04 L= 98)   979    239        2 (1037/ 586-1155/ 776)  59.7 W00-W07 S23-S11
      9 1323  455 (S35W21 L=115)  1743    357        3 (1187/ 354-1445/ 541)  35.8 W10-W29 S42-S28
     10  376  510 (S29E55 L= 39)   619    104        1 ( 332/ 478- 421/ 540)  14.0 E64-E48 S31-S26
     11 1636  461 (S37W52 L=146)  4121    384        6 (1475/ 382-1774/ 535)  14.0 W35-W72 S42-S32
     12  851  438 (S34E15 L= 79)   536    125        0 ( 809/ 401- 903/ 476)  29.1 E19-E10 S37-S31
     13  680  394 (S38E30 L= 64)   385     66        0 ( 652/ 369- 703/ 426)  45.0 E33-E27 S39-S34
  

    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