Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  994 1886 (N70E16 L=129)   688     41        1 ( 967/1868-1023/1903)  12.5 E22-E10 N67-N72
      2  823 1569 (N37E19 L=126)   583    189        0 ( 761/1531- 899/1635) -24.8 E25-E12 N34-N42
      3 1691 1517 (N37W58 L=203)  1727    206        2 (1622/1474-1758/1548)   5.2 W47-W69 N33-N39
      4 1454 1480 (N34W31 L=176)   543    132        0 (1406/1441-1492/1513)  -8.1 W26-W34 N30-N36
      5  490 1421 (N25E42 L=103)   288     54        0 ( 464/1400- 512/1443)  56.3 E43-E39 N23-N26
      6 1832 1374 (N27W71 L=216)   643     57        0 (1808/1354-1856/1393) -15.9 W66-W74 N25-N28
      7 1576 1363 (N26W39 L=184)   525     92        2 (1542/1324-1607/1392) -31.0 W36-W41 N23-N27
      8 1314 1365 (N25W18 L=163)   234     43        0 (1288/1351-1344/1381) -14.0 W16-W20 N24-N26
      9 1825 1178 (N14W61 L=206)   688     91        1 (1803/1132-1844/1227) -80.5 W58-W63 N11-N17
     10 1243 1019 (N03W14 L=159)   236     79        1 (1208/1002-1269/1045)  26.6 W11-W15 N02-N04
     11 1749  856 (S06W52 L=198)   484     26        0 (1725/ 832-1770/ 880)  71.6 W50-W54 S07-S04
     12  413  714 (S20E42 L=103)   850    108        2 ( 368/ 670- 466/ 755) -12.5 E46-E37 S22-S17
     13  208  705 (S23E68 L= 77)  1542    121        1 ( 173/ 654- 242/ 750)  15.6 E85-E60 S27-S19
     14 1037  494 (S32W03 L=148)   283     90        0 ( 997/ 480-1084/ 515) -15.9 W00-W07 S32-S30
     15  788  481 (S34E15 L=130)   573    111        2 ( 744/ 448- 844/ 513) -23.2 E18-E10 S36-S31
  

    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